-- card: 5226 from stack: in.4
-- bmap block id: 4371
-- flags: 4000
-- background id: 4928
-- name: a
----- HyperTalk script -----
on openCard
  Global ShortGivingDate
  hide MenuBar
  put shortGivingDate into card field "Card Date2"
end openCard


-- part 4 (field)
-- low flags: 01
-- high flags: 4007
-- rect: left=24 top=31 right=103 bottom=493
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 14
-- part name: Summary
----- HyperTalk script -----
on mouseUp
  Global Balance, AcctNum, Words, LastCheckNumber, LimitCards1
  Global ThisItem, ThisLine, accountlineNumber
  set numberformat to 0
  put the ClickLoc into ThisMouseLoc
  set cursor to 4

  --  This script written and copyrighted by:  Christopher C. Hostetter
  --  Mac Help Company, 1800 East Market St., Long Beach, CA  90805
  --  (213) 428-7414
  --  This script may be freely modified and used in other stacks,
  --  but these five credit lines must accompany this script.

  if the optionKey is down then
    put "These are your bank accounts and their balances.  To select" && "an account, simply click on the account.  You can then enter" && "transactions against the account you have selected.  The" && "little pointer arrow to the left tells you what account is" && "currently selected.  The dollar sign to the right, adds up all" && "of your accounts and shows your net worth." into String
    put the name of the target into ThisItem
    HelpMsg1 String, ThisItem
    exit mouseUp
  end if

  put the name of the target into WhatField
  put the rect of whatField into FieldRect
  put item 1 of FieldRect into X   -- Left of Rect
  put item 2 of FieldRect into Y   -- Top of Rect
  put item 3 of FieldRect into XX  -- Right of Rect
  put item 4 of FieldRect into YY  -- Bottom of Rect

  put (YY - Y) / the textheight of whatField into TotalZones
  put (YY - Y) / TotalZones into ZoneDepth
  put item 2 of ThisMouseLoc - Y into MouseDepth
  put the trunc of ((MouseDepth / ZoneDepth) + 1) into whichZone

  put the scroll of whatField / the textHeight of whatField into HiddenLines
  put the round of HiddenLines into HiddenLines
  put whichZone + HiddenLines into ThisLine
  put ThisLine into accountlineNumber
  do "put line" && ThisLine && "of" && whatField && "into ThisItem"


  --MOVE HILIGHTER BUTTON TO PROPER ZONE
  put Y + ((whichZone-1)*ZoneDepth) into ButY
  put the trunc of ButY into ButY
  put the trunc of (ButY+ZoneDepth) into ButYY
  if the style of whatField is "Scrolling" then
    set the rect of card button "Account Hilighter" to X+1,ButY+1,XX-17,ButYY-1
  else
    set the rect of card button "Account Hilighter" to X+1,ButY+1,XX-1,ButYY-1
  end if
  set the rect of card button "Account Pointer" to X-19,ButY+1,X-3,ButYY-1
  show card button "Account Hilighter"
  set lockscreen to true

  put char 30 to 46 of ThisItem into AcctNum
  put AcctNum into card field "Account Number"
  put empty into card field "Next Check"

  if ThisItem is not empty then
    put the Number Of Words of ThisItem into Words
    get word words-2 of ThisItem
    put the value of it into LastCheckNumber
    get last word of ThisItem
    put the value of it into Balance
  end if

  put AcctNum into line 1 of card field "Statistics"
  put the scroll of card field "Summary" into line 2 of card field "Statistics"
  put "Only View: " & AcctNum into ThisName
  set name of background button ID 53 to ThisName
  set the hilite of background button ID 53 to True
  put AcctNum into LimitCards1
  if the visible of card field "Clear YTD" is true then
    send "GetCleared" to background
  end if
  if the visible of card field "Select Checks" is true then
    send "GetChecks" to background
  end if
  set lockscreen to False
  Hide card button "Account Hilighter"
end mouseUp


-- part 5 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=3 top=5 right=22 bottom=48
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Total Accounts


-- part 6 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=24 top=17 right=31 bottom=493
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: Summary Title


-- part 29 (field)
-- low flags: 01
-- high flags: 4007
-- rect: left=310 top=109 right=265 bottom=493
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 14
-- part name: Sub Accounts
----- HyperTalk script -----
on mouseUp
  Global ThisItem, ThisLine, ReturnFromSub, ThisField
  set numberformat to 0
  put the clickLoc into ThisMouseLoc
  set cursor to 4

  --  This script written and copyrighted by:  Christopher C. Hostetter
  --  Mac Help Company, 1800 East Market St., Long Beach, CA  90805
  --  (213) 428-7414
  --  This script may be freely modified and used in other stacks,
  --  but these five credit lines must accompany this script.

  if the optionKey is down then
    put "These are your sub accounts.  When you write a check, or" && "make a deposit or withdrawal, etc., you can indicate where that" && "money is really going.  The importance of this feature is to" && "both analyze your spending and income, as well as to provide" && "a way to divide a bank account up into smaller accounts (for" && "accounting purposes.)  (A shortcut to view a sub account card" && "is to hold the SHIFT key down while clicking on the name of" && "the sub account you wish to see and to click on the black arrow" && "to return again.)" into String
    put the name of the target into ThisItem
    HelpMsg1 String, ThisItem
    exit mouseUp
  end if

  put the name of the target into WhatField
  put the rect of whatField into FieldRect
  put item 1 of FieldRect into X   -- Left of Rect
  put item 2 of FieldRect into Y   -- Top of Rect
  put item 3 of FieldRect into XX  -- Right of Rect
  put item 4 of FieldRect into YY  -- Bottom of Rect

  put (YY - Y) / the textheight of whatField into TotalZones
  put (YY - Y) / TotalZones into ZoneDepth
  put item 2 of ThisMouseLoc - Y into MouseDepth
  put the trunc of ((MouseDepth / ZoneDepth) + 1) into whichZone

  put the scroll of whatField / the textHeight of whatField into HiddenLines
  put the round of HiddenLines into HiddenLines
  put whichZone + HiddenLines into ThisLine
  do "put line" && ThisLine && "of" && whatField && "into ThisItem"


  --MOVE HILIGHTER BUTTON TO PROPER ZONE
  put Y + ((whichZone-1)*ZoneDepth) into ButY
  put the trunc of ButY into ButY
  put the trunc of (ButY+ZoneDepth) into ButYY
  if the style of whatField is "Scrolling" then
    set the rect of card button "Hilighter" to X+1,ButY+1,XX-17,ButYY-1
  else
    set the rect of card button "Hilighter" to X+1,ButY+1,XX-1,ButYY-1
  end if
  show card button "Hilighter"
  set lockscreen to true

  -- Use information from ThisItem in the sub fields
  put ThisItem into SubName

  if the ShiftKey is down then
    put the ID of this card into ReturnFromSub
    Hide card button "Hilighter"
    go to card SubName
    show background button "return"
    set hilite of background button "Return" to True
    set hilite of background button "Return" to False
    set hilite of background button "Return" to True
    exit mouseUp
  end if

  if card field "Amount" is empty then
    Hide card button "Hilighter"
    exit mouseUp
  end if

  repeat with i = 47 to 51
    if card field ID i is empty then
      put i into ThisField
      put SubName into card field ID i
      if i < 51 then
        put i+5 into temp
        if card field ID Temp is empty then
          put temp into SubAmtID
          get card field ID 56
          put it into card field ID temp
          put "0.00" into card field id 56
        end if
      end if
      exit repeat
    end if
  end repeat


  Hide card button "Hilighter"
  set lockscreen to false
  put ThisField+5 into Temp
  if Temp > 46 then
    click at the loc of card field ID Temp
    click at the loc of card field ID Temp
  end if

end mouseUp



-- part 37 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=98 top=149 right=166 bottom=248
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 16
-- part name: Account Number
----- HyperTalk script -----
on openfield
  global thisField
  put 37 into thisField
end openfield


-- part 42 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=98 top=165 right=182 bottom=167
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 16
-- part name: Next Check
----- HyperTalk script -----
on openfield
  global thisField
  put 42 into thisField
end openfield

on CloseField
  Global Transaction, AcctNum, TransName, CardName, LastCheckNumber
  Global NewCardName, ExitFlag
  set numberformat to 0000000

  if Transaction is "Write Check" then
    add 0 to card field "Next Check"
    put card field "Next Check" into CheckNumber
    put LastCheckNumber+1 into temp
    if CheckNumber > Temp then
      go to card NewCardName of background "a"
      if the result is empty then
        if background field "Void" is not empty then
          beep
          answer "There is already a check by this number, but it has"& " been voided." with OK
          go to card "a" of background "a"
        end if
      else
        answer "Are you sure you want to skip ahead to check number #" & CheckNumber & "  or use next number instead?" with "Cancel" or "SKIP" or Temp
        if it is "Skip" then
          answer "Would you like to continue the numbering sequence "& " of your checks from # " & checkNumber & " from now on?" with "Yes" or "No"
          if it is "Yes" then put checkNumber-1 into LastCheckNumber
          exit CloseField
        end if
        if it is Temp then put Temp into card field "Next Check"
        if it is "Cancel" then
          put empty into card field "Next Check"
          exit CloseField
        end if
      end if
    end if
    put AcctNum && TransName & CheckNumber into NewCardName
    if CheckNumber < Temp then
      go to card NewCardName of background "a"
      if the result is empty then
        if background field "Void" is not empty then
          beep
          answer "There is already a check by this number, but it has"& " been voided." with OK
          go to card "a" of background "a"
        end if
      end if
      exit CloseField
    end if
  else
    if card field "Next Check" is not empty then
      answer "Why are you entering a Check Number?  Do you want to change this transaction to a checking transaction" with "Yes" or "Ooops!-No"
      if it is "Ooops!-No" then put empty into card field "Next Check"
      if it is "Yes" then
        put "Write Check" into Transaction
        --send "TestTransaction" to background
      end if
    end if
  end if
  click at the loc of card field "Pay To"
end CloseField


-- part 43 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=98 top=181 right=198 bottom=297
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 16
-- part name: Pay To
----- HyperTalk script -----
on openfield
  global thisField
  put 43 into thisField
end openfield


-- part 44 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=182 top=197 right=214 bottom=297
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 16
-- part name: Amount
----- HyperTalk script -----
on openfield
  global thisField
  put 44 into thisField
  set the scroll of card field "Summary" to line 2 of card field "Statistics"
end openfield


on CloseField
  Global Amount, TransName, ThisField

  put Amount into LastAmount
  set numberformat to 0.00
  get card field "Amount"
  if it is not empty then
    put the value of it into Amount
    add 0 to Amount
    put Amount into card field "Amount"
    put 0 into Total
    repeat with i = 52 to 55
      if card field id i is not empty then add the value of card field id i to Total
    end repeat
    put Amount - Total into card field id 56
  end if

  if Amount is not LastAmount and TransName contains "EFT" then
    answer "Is this:  $" & Amount & " a Deposit or Withdrawal against the account?" with "Credit" or "Debit"
    if it is "Credit" then
      put "EFTc-" into TransName
    else
      put "EFTd-" into TransName
    end if
  end if
  put 44 into ThisField

end CloseField

on mouseLeave
  CloseField
end mouseLeave


-- part 45 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=98 top=213 right=245 bottom=297
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 16
-- part name: Memo
----- HyperTalk script -----
on openfield
  global thisField
  put 45 into thisField
end openfield


-- part 47 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=24 top=250 right=264 bottom=161
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Sub1
----- HyperTalk script -----
on openfield
  global thisField

  put 47 into thisField
end openfield

on closefield
  Global ThisField

  exit closeField -- Leave out if you wish to be able to enter partial
  -- words rather than clicking on the sub account name

  put False into Flag
  get card field id ThisField
  put it into ThisString
  find it in field "Sub Accounts"
  put 0 into Test
  put 0 into Total
  put 0 into LineNumber

  repeat until Flag
    add 1 to LineNumber
    put length of line LineNumber of card field "Sub Accounts" into Len
    add 1 to Len
    put Len + Total into Total
    put offset (it, card field "Sub Accounts") into ThisOffset
    if ThisOffset < Total then
      --ask "Is this the line? " with LineNumber
      get line LineNumber of card field "Sub Accounts"
      if it is ThisString then
        exit CloseField
      else
        ask "Do you mean..." with it
        if it is "" then
          beep
          click at the loc of card field id ThisField
          exit closeField
        else
          put it into card field id ThisField
          put True into Flag
        end if
      end if
    end if
  end repeat

end closefield


-- part 48 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=24 top=263 right=277 bottom=161
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Sub2
----- HyperTalk script -----
on openfield
  global thisField

  put 48 into thisField
end openfield


-- part 49 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=24 top=276 right=290 bottom=161
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Sub3
----- HyperTalk script -----
on openfield
  global thisField

  put 49 into thisField
end openfield


-- part 50 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=24 top=289 right=303 bottom=161
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Sub4
----- HyperTalk script -----
on openfield
  global thisField

  put 50 into thisField
end openfield


-- part 51 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=24 top=302 right=316 bottom=161
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Sub5
----- HyperTalk script -----
on openfield
  Global ThisField

  put 51 into thisField
end openfield


-- part 52 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=160 top=250 right=264 bottom=270
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Sub Amt
----- HyperTalk script -----
on openField
  Global ThisField

  put 0 into ThisField
  put 47 into i
  if card field id i is empty then click at the loc of card field id i
end openField

on CloseField
  Global Amount, ThisField
  put 52 into ThisField

  if card field id 47 is empty then click at the loc of card field id 47
  set numberformat to 0.00
  get card field "Amount"
  if it is not empty then
    if card field id 52 is not empty then add 0 to card field id 52
    put the value of it into Amount
    put 0 into Total
    repeat with i = 52 to 55
      if card field id i is not empty then add the value of card field id i to Total
    end repeat
    put Amount - Total into card field id 56
  end if

end CloseField



-- part 53 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=160 top=263 right=277 bottom=270
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Credit
----- HyperTalk script -----
on openField
  Global ThisField

  put 0 into ThisField
  put 48 into i
  if card field id i is empty then click at the loc of card field id i
end openField

on CloseField
  Global Amount, ThisField
  put 53 into ThisField


  set numberformat to 0.00
  get card field "Amount" of card "a"
  if it is not empty then
    if card field id 53 is not empty then add 0 to card field id 53
    put the value of it into Amount
    put 0 into Total
    repeat with i = 52 to 55
      if card field id i is not empty then add the value of card field id i to Total
    end repeat
    put Amount - Total into card field id 56
  end if

end CloseField


-- part 180 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=1 top=317 right=341 bottom=274
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part 54 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=160 top=276 right=290 bottom=270
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Credit
----- HyperTalk script -----
on openField
  Global ThisField

  put 0 into ThisField
  put 49 into i
  if card field id i is empty then click at the loc of card field id i
end openField

on CloseField
  Global Amount, ThisField
  put 54 into ThisField


  set numberformat to 0.00
  get card field "Amount"
  if it is not empty then
    if card field id 54 is not empty then add 0 to card field id 54
    put the value of it into Amount
    put 0 into Total
    repeat with i = 52 to 55
      if card field id i is not empty then add the value of card field id i to Total
    end repeat
    put Amount - Total into card field id 56
  end if

end CloseField


-- part 55 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=160 top=289 right=303 bottom=270
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Credit
----- HyperTalk script -----
on openField
  Global ThisField

  put 0 into ThisField
  put 50 into i
  if card field id i is empty then click at the loc of card field id i
end openField

on CloseField
  Global Amount, ThisField
  put 55 into ThisField


  set numberformat to 0.00
  get card field "Amount"
  if it is not empty then
    if card field id 55 is not empty then add 0 to card field id 55
    put the value of it into Amount
    put 0 into Total
    repeat with i = 52 to 55
      if card field id i is not empty then add the value of card field id i to Total
    end repeat
    put Amount - Total into card field id 56
  end if

end CloseField


-- part 56 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=160 top=302 right=316 bottom=270
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Credit
----- HyperTalk script -----
on mouseLeave
  Global Amount

  set numberformat to 0.00
  get card field "Amount"
  if it is not empty then
    if card field id 56 is not empty then add 0 to card field id 56
    put the value of it into Amount
    put 0 into Total
    --repeat with i = 52 to 55
    --if card field id i is not empty then add the value --of card field id i to Total
    --end repeat
    --put Amount - Total into card field id 56
  end if

end mouseLeave


-- part 61 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=54 top=5 right=22 bottom=99
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Total Subs


-- part 73 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=24 top=109 right=142 bottom=298
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Transaction:  Account Fee
----- HyperTalk script -----
on mouseUp
  if the optionKey is down then
    put "You choose what type of transaction you wish to enter." && " Check writing and withdrawals will subtract from your bank" && "balances, while deposits and interest will increase your" && "bank balance.  If you choose ATM transaction, you will be asked" && "if the transaction is a credit or debit to your account." into String
    put the name of the target into ThisItem
    HelpMsg1 String, ThisItem
    exit mouseUp
  end if

  set visible of card field "Blank Pop" to True
  repeat with i = 198 to 204
    show card button ID i
  end repeat
end mouseUp




-- part 74 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=98 top=197 right=214 bottom=182
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 16
-- part name: Card Date2
----- HyperTalk script -----
on mouseUp
  Global GivingDate, ShortGivingDate, TransName, Transaction, AcctNum

  if GivingDate is empty then put the long date into GivingDate
  put GivingDate into ShortGivingDate
  convert ShortGivingDate to short date
  put 0 into temp
  repeat until Temp = GivingDate
    put GivingDate into Temp
    put GivingDate into ShortGivingDate
    convert ShortGivingDate to short date
    ask "Transaction Date:" & "                   " & "                                     " & GivingDate with ShortGivingDate
    if it is "" then exit mouseUp
    if it is "Today" then put the short date into it
    put it into GivingDate
    put it into card field "Card Date2"
    convert GivingDate to long date
  end repeat

  --send "CheckForExisting" to background
end mouseUp



-- part 85 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=24 top=318 right=340 bottom=116
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Accept
----- HyperTalk script -----
on mouseUp
  Global Transaction, GivingDate, ShortGivingDate, NewCardName
  Global DoNewCard, AcctNum, TransName, Words, AccountLineNumber
  Global LastCheckNumber, balance, BeginCreditField, ExitFlag
  Global LimitCards1, LimitCards2, PersonalAddress, ThisField
  Global SubAmtID

  if the optionKey is down then
    put "If all the information is correctly entered, click this" && "button to record the transaction and credit or debit your" && "account." into String
    put the name of the target into ThisItem
    HelpMsg1 String, ThisItem
    exit mouseUp
  end if

  set cursor to 4
  if the visible of card field "Clear YTD" is true then
    click at the loc of card button ID 129
    exit mouseUp
  end if

  if SubAmtID > 50 then send closeField to card field ID SubAmtID
  send "CloseField" to card field "Amount"
  put card field "Amount" into Amount


  if the name of card button ID 73 is "Transaction:" then
    answer "You forgot to indicate what kind of transaction!" with "OK" or "Do Now"
    if it is "Do Now" then click at the loc of card button ID 73
    exit mouseUp
  end if

  if card field "Amount" is empty then
    answer "You forgot to enter an amount!" with "OK"
    exit mouseUp
  end if

  if card field "Account Number" is empty then
    answer "You forgot to select an account!" with "OK"
    exit mouseUp
  end if

  if Transaction is "Write Check" then
    put AcctNum && TransName into Temp
    put Temp & card field "Next Check" into NewCardName
  else
    put AcctNum && TransName into Temp
    put Temp & ShortGivingDate into NewCardName
  end if

  put False into ExitFlag
  send "checkForExisting" to background
  if ExitFlag then exit mouseUp

  put True into DoNewCard

  if the value of card field ID 56 is Amount then
    answer "Are you sure you want all this amount to go into " & "the MISCELLANEOUS Sub Account?" with "No" or "Yes"
    if it is "No" then exit mouseUp
  end if


  if DoNewCard is True then
    put "Updating..." into card field "Wait Pop"
    show card field "Wait Pop"
    set lockscreen to true
    set cursor to 4
    hide card field "Wait Pop"

    put 47 into BeginCreditField
    if TransName is "Dep-" or TransName is "Int-" or TransName is "EFTc-" then
      send "CreditSubs" to background
    else
      send "UnCreditSubs" to background
    end if

    if ExitFlag is True then
      answer "You have not put in any totals into this transaction!"
      exit mouseUp
    end if

    put False into DoNewCard

    put card field "Next Check" into aa1
    put card field "Pay To" into aa2
    put card field "Amount" into aa3
    put card field "Memo" into aa4
    put card field id 47 into aa5
    put card field id 48 into aa6
    put card field id 49 into aa7
    put card field id 50 into aa8
    put card field id 51 into aa9
    put card field id 52 into aa10
    put card field id 53 into aa11
    put card field id 54 into aa12
    put card field id 55 into aa13
    put card field id 56 into aa14

    go to last card of background "a"
    doMenu "New Card"
    put "•Activity Card" into background field "Activity Card Flag"
    set the name of this card to NewCardName
    put NewCardName into background field "Name of Card"

    put GivingDate into Background field "Card Date"
    put GivingDate into SecDate
    convert SecDate to seconds
    put SecDate into line 2 of background field "Card Date"
    put ShortGivingDate into Background field "Card Date2"
    put AcctNum into background field "Account Number"
    put Transaction into background field "Transaction"

    put aa1 into background field "Check Number"
    put aa2 into background field "Pay To"
    set numberformat to 0.00
    if TransName is "Dep-" or TransName is "Int-" or TransName is "EFTc-" then
      put aa3 into background field "Credit"
      add the value of aa3 to balance
    else
      put aa3 into background field "Debit"
      Subtract the value of aa3 from balance
      if TransName contains "Check" then
        put aa3 into background field "Debit2"
        put GivingDate into ThisDate
        convert ThisDate to DateItems
        delete char 1 to 2 of ThisDate
        put item 1 of ThisDate into background field "CheckDate2"
        put item 2 of ThisDate into temp1
        put item 3 of ThisDate into temp2
        put temp1 & " / " & temp2 into background field "CheckDate1"
        put PersonalAddress into background field "Check Address"
      end if
    end if

    put balance into last word of line AccountLineNumber of card field "Summary" of card "a"

    put aa4 into background field "Memo"

    if Transaction is "Write Check" then
      if aa1-1 = LastCheckNumber then -- the check # which user entered
        set numberformat to 0000000
        add 1 to LastCheckNumber
        put LastCheckNumber into word words-2 of line AccountLineNumber of card field "Summary" of card "a"
        set numberformat to 0.00
      end if
    end if

    put aa5 into background field id 31
    put aa6 into background field id 32
    put aa7 into background field id 33
    put aa8 into background field id 34
    put aa9 into background field id 35
    put aa10 into background field id 36
    put aa11 into background field id 37
    put aa12 into background field id 38
    put aa13 into background field id 39
    put aa14 into background field id 40

    go to card "a" of background "a"
    set lockscreen to true
    send "ResetFields" to background
    set lockscreen to false
    if Transaction is "Write Check" then
      set numberformat to 0000000
      put LastCheckNumber+1 into Temp
      put Temp into card field "Next Check" of card "a"
      set numberformat to 0.00
      send "CloseField" to card field "Next Check"
    else
      click at the loc of card field "Amount"
      click at the loc of card field "Amount"
    end if


  end if



end mouseUp



-- part 140 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=7 top=98 right=316 bottom=204
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name: Blank Pop2


-- part 161 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=122 top=319 right=341 bottom=216
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Clear
----- HyperTalk script -----
on mouseUp
  Global LimitCards2
  set hilite of the name of the target to true

  if the optionKey is down then
    put "Clicking this button will quickly erase the information" && "in the Pay To, Amount, Memo, and Sub Fields, so that you can" && "re-enter the information afresh." into String
    put the name of the target into ThisItem
    HelpMsg1 String, ThisItem
    exit mouseUp
  end if

  if the visible of card field "Clear YTD" is true then
    click at the loc of card button ID 129
    exit mouseUp
  end if

  put empty into LimitCards2
  set hilite of background button ID 54 to false

  set lockscreen to true
  send "ResetFields" to background
  set lockscreen to false
  set hilite of the name of the target to false

end mouseUp




-- part 141 (field)
-- low flags: 80
-- high flags: 0002
-- rect: left=120 top=147 right=160 bottom=198
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Clear 1
----- HyperTalk script -----
on closeField
  send "CalculateCleared" to background
end closeField

on mouseEnter
  click at the loc of card field "Clear 1"
  click at the loc of card field "Clear 1"
end mouseEnter


-- part 142 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=120 top=177 right=194 bottom=198
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Clear 2


-- part 143 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=120 top=207 right=224 bottom=198
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Clear 3


-- part 144 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=120 top=107 right=124 bottom=198
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Clear 4


-- part 145 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=120 top=257 right=274 bottom=198
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 4
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: Clear 5


-- part 146 (button)
-- low flags: 80
-- high flags: A003
-- rect: left=23 top=281 right=303 bottom=186
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Delete Cleared Activity
----- HyperTalk script -----
on mouseUp
  Global AcctNum

  put the value of card field "Clear 5" into OutOfBalance
  if OutOfBalance is not 0 then
    answer "Are you sure you want to delete cleared activity even though your account is out of balance by $ " & OutOfBalance & "?" with "Yes" or "NO"
    if it is "No" then
      exit mouseUp
    end if
  else
    answer "Delete All Cleared Activity From This Account?" with "Yes" or "Cancel"
    if it is "Cancel" then exit MouseUp
  end if


  put "Clearing..." into card field "Wait Pop"
  show card field "Wait Pop"
  set lockscreen to true
  set cursor to 4
  hide card field "Wait Pop"

  put the number of lines of card field "Clear YTD" into NumLines

  repeat with i = 1 to NumLines
    get line i of card field "Clear YTD" of card "a"
    if char 1 of it is not " " then
      get line i of card field "Clear YTD2" of card "a"
      Go to it
      doMenu "Delete Card"
    end if
  end repeat

  go to card "a" of background "a"
  put 1 into LineNum
  repeat forever
    get line LineNum of card field "Clear YTD" of card "a"
    if it is empty then exit repeat
    if char 1 of it is not " " then
      delete line LineNum of card field "Clear YTD" of card "a"
      delete line LineNum of card field "Clear YTD2" of card "a"
    else
      add 1 to LineNum
    end if

  end repeat

  send "CalculateCleared" to background

  set lockscreen to false
end mouseUp



-- part 164 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=310 top=274 right=297 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Reconcile Bank Statement
----- HyperTalk script -----
on mouseUp
  Global AcctNum, LastButtonID2
  set hilite of card button ID 164 to true

  if the optionKey is down then
    put "After a bank account has been selected, choose this button" && "if you desire to mark some transactions as being cleared.  When" && "a transaction is marked as cleared, you can easily match up the" && "amounts of your transactions to a bank statement.  Afterward," && "click the button again to close the bank statement window, or" && "click the 'delete cleared activity' to permanently erase those" && "transactions which you will no longer need to reference." into String
    put the name of the target into ThisItem
    HelpMsg1 String, ThisItem
    exit mouseUp
  end if

  if the visible of card field "Clear YTD" is true then
    put False into ShowFlag
  else
    put True into ShowFlag
  end if

  set lockscreen to true
  set cursor to 4
  put empty into card field "Clear YTD"
  put empty into card field "Clear YTD2"
  set the visible of card field "Blank Pop2" to True
  set the visible of card field "Clear YTD" to ShowFlag
  set the visible of card field "Clear 1" to ShowFlag
  set the visible of card field "Clear 2" to ShowFlag
  set the visible of card field "Clear 3" to ShowFlag
  set the visible of card field "Clear 4" to ShowFlag
  set the visible of card field "Clear 5" to ShowFlag
  set the visible of card field "Clear 6" to ShowFlag
  set the visible of card field "Clear 7" to ShowFlag
  set the visible of card button "Delete Cleared Activity" to ShowFlag
  set the visible of card field "Blank Pop2" to ShowFlag
  set hilite of card button ID 164 to false
  set lockscreen to false

  if ShowFlag is True then
    set lockscreen to true
    send "GetCleared" to background
  end if

end mouseUp



-- part 165 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=273 top=87 right=314 bottom=487
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 6
-- text size: 18
-- style flags: 1024
-- line height: 24
-- part name: Blank Pop


-- part 175 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=463 top=309 right=342 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 9761 / 9761
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  Global LimitCards2

  --set the hilite of background button ID 54 to False
  --Put empty into LimitCards2
  go to card "Map"

end mouseUp



-- part 177 (field)
-- low flags: 81
-- high flags: 4007
-- rect: left=6 top=96 right=264 bottom=290
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 14
-- part name: Clear YTD2


-- part 181 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=19 top=2 right=34 bottom=451
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part 198 (button)
-- low flags: 80
-- high flags: A005
-- rect: left=294 top=127 right=149 bottom=462
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Account Deposit  (+)
----- HyperTalk script -----
on mouseUp
  Global Transaction, TransactionSelect
  put "Account Deposit" into ButtonName


  put ButtonName into Transaction
  put True into TransactionSelect
  click at the loc of card button "Cancel"
end mouseUp



-- part 199 (button)
-- low flags: 80
-- high flags: A005
-- rect: left=294 top=148 right=170 bottom=472
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Account Withdrawal  (-)
----- HyperTalk script -----
on mouseUp
  Global Transaction, TransactionSelect
  put "Account Withdrawal" into ButtonName


  put ButtonName into Transaction
  put True into TransactionSelect
  click at the loc of card button "Cancel"
end mouseUp



-- part 200 (button)
-- low flags: 80
-- high flags: A005
-- rect: left=294 top=169 right=191 bottom=462
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Account Interest  (+)
----- HyperTalk script -----
on mouseUp
  Global Transaction, TransactionSelect
  put "Account Interest" into ButtonName


  put ButtonName into Transaction
  put True into TransactionSelect
  click at the loc of card button "Cancel"
end mouseUp



-- part 201 (button)
-- low flags: 80
-- high flags: A005
-- rect: left=294 top=190 right=212 bottom=462
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Account Fee  (-)
----- HyperTalk script -----
on mouseUp
  Global Transaction, TransactionSelect
  put "Account Fee" into ButtonName


  put ButtonName into Transaction
  put True into TransactionSelect
  click at the loc of card button "Cancel"
end mouseUp



-- part 202 (button)
-- low flags: 80
-- high flags: A005
-- rect: left=294 top=226 right=248 bottom=462
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Write Check  (-)
----- HyperTalk script -----
on mouseUp
  Global Transaction, TransactionSelect
  put "Write Check" into ButtonName


  put ButtonName into Transaction
  put True into TransactionSelect
  click at the loc of card button "Cancel"
end mouseUp



-- part 203 (button)
-- low flags: 80
-- high flags: A005
-- rect: left=294 top=247 right=269 bottom=462
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ATM / EFT / Electronic
----- HyperTalk script -----
on mouseUp
  Global Transaction, TransactionSelect
  put "ATM / EFT / Electronic" into ButtonName


  put ButtonName into Transaction
  put True into TransactionSelect
  click at the loc of card button "Cancel"
end mouseUp



-- part 204 (button)
-- low flags: 80
-- high flags: A003
-- rect: left=299 top=279 right=301 bottom=467
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: CANCEL
----- HyperTalk script -----
on mouseUp
  Global Transaction, TransactionSelect

  set lockscreen to true
  set cursor to 4
  repeat with i = 198 to 204
    hide card button ID i
    set hilite of card Button ID i to false
  end repeat
  set visible of card field "Blank Pop" to False
  set lockscreen to false

  if TransactionSelect is not empty then send "TestTransaction" to background
  put empty into TransactionSelect

end mouseUp



-- part 205 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=0 top=0 right=17 bottom=125
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Account Set-up
----- HyperTalk script -----
on mouseUp
  global ThisField, BankAccountLine, AcctNum, AccountLineNumber
  global ThisLine, ThisItem, AccountTotal

  if the optionKey is down then
    put "This allows you to create, delete or modify either a bank" && "account or a sub account.  SEE MANUAL FOR MORE EXPLANATION ON" && "BANK ACCOUNTS & SUB ACCOUNTS." into String
    set hilite of the name of the target to false
    put the name of the target into ThisItem
    HelpMsg1 String
    exit mouseUp
  end if

  answer "Edit which type of account?" with "Sub-Account" or "Bank Account" or "CANCEL"
  set hilite of card button ID 205 to false

  if it is "CANCEL" then exit mouseUp

  if it is "Bank Account" then
    put char 1 to 29 of line AccountLineNumber of card field "Summary" into TitleOfAccount

    put card field "Total Accounts" into AccountTotal
    if AccountTotal is empty then put 0 into AccountTotal
    answer "What do you want to do with a BANK ACCOUNT?" with "Create" or "Delete" or "Modify"
    if it is "Create" then
      ask "Title of account?"
      if it is "" then exit mouseUp
      put it into AccountTitle
      ask "Account Number?  (17 Characters Maximum)"
      if it is "" then exit mouseUp
      put it into AccountNumber
      put char 1 to 17 of AccountNumber into AccountNumber

      repeat with i = 1 to 17
        if char i of AccountNumber is " " then
          put "." into char i of AccountNumber
        end if
        if char i of AccountNumber is empty then
          put AccountNumber & "." into AccountNumber
        end if
      end repeat

      put 1 into i
      put char 30 to 46 of line i of card field "Summary" into TempAcctNum
      repeat until TempAcctNum is empty
        if TempAcctNum is AccountNumber then
          beep
          ask "The account number " & AccountNumber & " already exists.  You can't use the same account number " & "again.  (You could add a '-1' or '-2', etc.)" with AccountNumber
          if it is empty then exit mouseUp
          put it into AccountNumber
          put char 1 to 17 of AccountNumber into AccountNumber
          repeat with i = 1 to 17
            if char i of AccountNumber is " " then
              put "." into char i of AccountNumber
            end if
            if char i of AccountNumber is empty then
              put AccountNumber & "." into AccountNumber
            end if
          end repeat
          put 0 into i
        end if
        add 1 to i
        put char 30 to 46 of line i of card field "Summary" into TempAcctNum
      end repeat

      add 1 to AccountTotal
      add 1 to card field "Total Accounts"
      put "                                                            " into line AccountTotal of card field "Summary"
      put AccountTitle into Char 1 of line AccountTotal of card field "Summary"
      put AccountNumber into Char 30 of line AccountTotal of card field "Summary"
      put "0000000" into Char 48 of line AccountTotal of card field "Summary"
      put "$ 0.00" into Char 59 of line AccountTotal of card field "Summary"

      put 0 into j
      put False into Flag
      set lockscreen to true
      set cursor to 4
      repeat until Flag
        add 1 to j
        if j = AccountTotal then exit repeat
        put line j of card field "Summary" into temp1
        put line j+1 of card field "Summary" into temp2
        if char 1 to 29 of temp1 > char 1 to 29 of Temp2 then
          put temp1 into line j+1 of card field "Summary"
          put temp2 into line j of card field "Summary"
          put 0 into j
        end if
      end repeat
      set lockscreen to false
      show card button "Account Hilighter"
      click at the loc of card button "Account Hilighter"

    else
      if BankAccountLine > AccountTotal then
        answer "Select the proper account first!" with "OK"
        exit mouseUp
      end if

      if it is "Modify" then
        answer "Modify account number " & AcctNum & " - " & TitleOfAccount with "Yes" or "NO"
        if it is "NO" then exit mouseUp
        put 1 into i
        put char 30 to 46 of line i of card field "Summary" into TempAcctNum
        repeat until TempAcctNum is empty
          if TempAcctNum is AcctNum then

            put char 1 to 29 of line i of card field "Summary" into AccountTitle
            ask "Modify the Title of this account?" with AccountTitle
            if it is not empty then put it into AccountTitle

            put char 30 to 46 of line i of card field "Summary" into AccountNumber

            put char 48 to 54 of line i of card field "Summary" into CkNumber
            ask "Modify the Last Check Number of this account?" with CkNumber
            if it is not empty then put it into CkNumber
            set numberformat to 0000000
            add 0 to CkNumber
            put CkNumber & " " into CkNumber

            put last word of line i of card field "Summary" into AcctAmt
            ask "Modify the current balance of this account?" with AcctAmt
            if it is not empty then put it into AcctAmt
            set numberformat to 0.00
            add 0 to AcctAmt
            put "$ " & AcctAmt into AcctAmt

            answer "Record these modifications to account " & AcctNum & " - " & TitleOfAccount with "Yes" or "No"
            if it is "Yes" then
              delete line i of card field "Summary"
              put return before line i of card field "summary"
              put "                                                            " into line i of card field "Summary"
              put AccountTitle into Char 1 of line i of card field "Summary"
              put AccountNumber into Char 30 of line i of card field "Summary"
              put CkNumber into Char 48 of line i of card field "Summary"
              put AcctAmt into Char 59 of line i of card field "Summary"

              put 0 into j
              put False into Flag
              set lockscreen to true
              set cursor to 4
              repeat until Flag
                add 1 to j
                if j = AccountTotal then exit repeat
                put line j of card field "Summary" into temp1
                put line j+1 of card field "Summary" into temp2
                if char 1 to 29 of temp1 > char 1 to 29 of Temp2 then
                  put temp1 into line j+1 of card field "Summary"
                  put temp2 into line j of card field "Summary"
                  put 0 into j
                end if
              end repeat
              set lockscreen to false
              show card button "Account Hilighter"
              click at the loc of card button "Account Hilighter"

            end if
            exit repeat
          end if
          add 1 to i
          put char 30 to 46 of line i of card field "Summary" into TempAcctNum
        end repeat
      end if

      if it is "Delete" then
        if AcctNum is empty then
          beep
          wait 20
          beep
          answer "No account number was selected.  First Select " & "the proper account?" with "OK"
          exit mouseUp
        else
          beep
          answer "Delete account number " & AcctNum & " - " & TitleOfAccount with "Yes" or "NO"
        end if
        if it is "NO" then exit mouseUp

        put 1 into i
        put char 30 to 46 of line i of card field "Summary" into TempAcctNum
        repeat until TempAcctNum is empty
          if TempAcctNum is AcctNum then delete line i of card field "Summary"
          add 1 to i
          put char 30 to 46 of line i of card field "Summary" into TempAcctNum
        end repeat
        subtract 1 from card field "Total Accounts"

        put "•Activity Card" && AcctNum into ThisString
        find word ThisString
        if the result is "Not Found" then
          go to card "a" of background "a"
          answer "Bank account " & AcctNum & " was deleted!"
          set the scroll of card field "Summary" to 0
          click at the loc of card button "Account Hilighter"
          exit mouseUp
        end if

        set lockscreen to true
        repeat forever
          doMenu Delete Card
          go to next card of background "a"
          put "•Activity Card" && AcctNum into ThisString
          find word ThisString
          if the result is "Not Found" then exit repeat
        end repeat
        go to card "a" of background "a"
        set lockscreen to false

        answer "Bank account " & AcctNum & " was deleted!"
        show card button "Account Hilighter"
        click at the loc of card button "Account Hilighter"
        exit mouseUp
      end if
    end if

  else -- IF IT IS A SUB ACCOUNT

    put card field "Total Subs" into AccountTotal
    if AccountTotal is empty then put 0 into AccountTotal
    answer "What do you want to do with SUB-ACCOUNT  '" & ThisItem & "'" with "Create" or "Delete" or "Modify"
    put it into Action

    if Action is "Modify" then
      if ThisLine > AccountTotal then
        answer "First select the sub-account you wish to delete!" with "OK"
        exit mouseUp
      end if
      if ThisItem is "Miscellaneous" then
        answer "You cannot Modify the name of the miscellaneous sub-account" with "Sorry"
        exit mouseUp
      end if
      answer "Modify the name of sub-account: " & ThisItem with "Yes" or "NO"
      if it is "No" then exit mouseUp
      put ThisItem into OriginalSubName
      ask "Enter the new name of sub account: " & ThisItem with ThisItem
      if it is not empty then put it into ThisItem

      if OriginalSubName is not ThisItem then
        go to card OriginalSubName of background "Sub Accounts"
        put ThisItem into Background field "Sub Title"
        set the name of this card to ThisItem
        go to card "a" of background "a"
        put ThisItem into line ThisLine of card field "Sub Accounts"
        "SortSubNames"
      end if
    end if

    if Action is "Create" then
      ask "Name of Sub-Account?"
      if it is "" then exit mouseUp
      put it into ThisItem
      go to card ThisItem of background "Sub Accounts"
      if the result is not empty then
        add 1 to card field "Total Subs"
        add 1 to AccountTotal
        put ThisItem into line AccountTotal of card field "Sub accounts"
        go to last card of background "Sub Accounts"
        doMenu "New Card"
        put ThisItem into background field "Sub Title"
        set the name of this card to ThisItem
        go to card "a" of background "a"
        "SortSubNames"
      end if
    end if

    if Action is "Delete" then
      if ThisLine > AccountTotal then
        answer "First select the sub-account you wish to delete!" with "OK"
        exit mouseUp
      end if
      if ThisItem is "Miscellaneous" then
        answer "You cannot delete the miscellaneous sub-account" with "Sorry"
        exit mouseUp
      end if
      answer "Delete sub-account named: " & ThisItem with "Yes" or "NO"
      if it is "NO" then exit mouseUp

      set lockscreen to true
      put 1 into i
      put line i of card field "Sub Accounts" into TempName
      repeat until TempName is empty
        if ThisItem is TempName then
          delete line i of card field "Sub Accounts"
          set the scroll of card field "Sub Accounts" to 0
        end if
        add 1 to i
        put line i of card field "Sub Accounts" into TempName
      end repeat
      subtract 1 from card field "Total Subs"
      go to card ThisItem of background "Sub Accounts"
      doMenu "Delete Card"
      go to card "a" of background "a"
      put Miscellaneous into ThisItem
      set lockscreen to true
      exit mouseUp
    end if

    set lockscreen to true
    push card
    go to card "Main" of background "Income"
    put empty into background field "Sub Accounts"
    put card field "Sub Accounts" of card "a" of background "a" into background field "Sub Accounts"
    pop card
    set lockscreen to false

  end if

end mouseUp

on "SortSubNames"
  Global AccountTotal
  put 0 into j
  set lockscreen to true
  set cursor to 4
  put False into Flag
  repeat until Flag
    add 1 to j
    if j = AccountTotal then exit repeat
    put line j of card field "Sub Accounts" into temp1
    put line j+1 of card field "Sub Accounts" into temp2
    if temp1 > Temp2 then
      put temp1 into line j+1 of card field "Sub Accounts"
      put temp2 into line j of card field "Sub Accounts"
      put 0 into j
    end if
  end repeat
  set lockscreen to false
end "SortSubNames"



-- part 206 (field)
-- low flags: 80
-- high flags: 0004
-- rect: left=3 top=99 right=168 bottom=148
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Statistics


-- part 207 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=24 top=97 right=109 bottom=452
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part 211 (button)
-- low flags: 80
-- high flags: 4000
-- rect: left=311 top=152 right=164 bottom=476
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Hilighter
----- HyperTalk script -----
on mouseUp
  hide the name of the target
end mouseUp



-- part 212 (button)
-- low flags: 80
-- high flags: 4000
-- rect: left=25 top=32 right=44 bottom=476
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Account Hilighter
----- HyperTalk script -----
on mouseUp
  Hide the name of the target
  click at the loc of the name of the target
end mouseUp


-- part 216 (field)
-- low flags: 81
-- high flags: 4007
-- rect: left=209 top=98 right=268 bottom=493
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 14
-- part name: Clear YTD
----- HyperTalk script -----
on mouseUp
  Global ThisItem, ThisLine, AcctNum
  set numberformat to 0
  put the ClickLoc into LastClickLoc
  set cursor to 4

  --  This script written and copyrighted by:  Christopher C. Hostetter
  --  Mac Help Company, 1800 East Market St., Long Beach, CA  90805
  --  (213) 428-7414
  --  This script may be freely modified and used in other stacks,
  --  but these five credit lines must accompany this script.

  put the name of the target into WhatField
  put the rect of whatField into FieldRect
  put item 1 of FieldRect into X   -- Left of Rect
  put item 2 of FieldRect into Y   -- Top of Rect
  put item 3 of FieldRect into XX  -- Right of Rect
  put item 4 of FieldRect into YY  -- Bottom of Rect

  put (YY - Y) / the textheight of whatField into TotalZones
  put (YY - Y) / TotalZones into ZoneDepth
  put item 2 of LastClickLoc - Y into MouseDepth
  put the trunc of ((MouseDepth / ZoneDepth) + 1) into whichZone

  put the scroll of whatField / the textHeight of whatField into HiddenLines
  put the trunc of (whichZone + HiddenLines) into ThisLine
  do "put line" && ThisLine && "of" && whatField && "into ThisItem"


  --MOVE HILIGHTER BUTTON TO PROPER ZONE
  put Y + ((whichZone-1)*ZoneDepth) into ButY
  put the trunc of ButY into ButY
  put the trunc of (ButY+ZoneDepth) into ButYY
  if the style of whatField is "Scrolling" then
    set the rect of card button "Clear YTD Hilighter" to X+1,ButY+1,XX-17,ButYY-1
  else
    set the rect of card button "Clear YTD Hilighter" to X+1,ButY+1,XX-1,ButYY-1
  end if
  show card button "Clear YTD Hilighter"
  set lockscreen to true


  set numberformat to 0.00
  if ThisItem is not empty then
    put last word of ThisItem into Amount
    if char 1 of ThisItem is " " then
      put "√" into ClearChar
      put ClearChar into char 1 of line ThisLine of card field "Clear YTD"
      if amount > 0 then
        add amount to card field "Clear 3" -- cleared(+)
        subtract amount from card field "Clear 2" -- outstanding(+)
      else
        subtract amount from card field "Clear 7" -- cleared(-)
        add amount to card field "Clear 6" -- outstanding(-)
      end if

      --add Amount to card field "Clear 2"
      --add Amount to card field "Clear 3"
      put word 1 of ThisItem into Trans
    else
      put " " into ClearChar
      put ClearChar into char 1 of line ThisLine of card field "Clear YTD"
      if amount > 0 then
        subtract amount from card field "Clear 3" -- cleared(+)
        add amount to card field "Clear 2" -- outstanding(+)
      else
        add amount to card field "Clear 7" -- cleared(-)
        subtract amount from card field "Clear 6" -- outstanding(-)
      end if

      --subtract Amount from card field "Clear 2"
      --subtract Amount from card field "Clear 3"
      put word 2 of ThisItem into Trans
    end if

    push card
    get Line ThisLine of card field "Clear YTD2"
    go to it
    put ClearChar into background field "Cleared"
    pop card

    send "CalculateCleared" to background
  end if

  Hide card button "Clear YTD Hilighter"
end mouseUp


-- part 219 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=120 top=217 right=234 bottom=198
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Clear 7


-- part 220 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=120 top=187 right=204 bottom=198
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Clear 6


-- part 223 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=5 top=32 right=44 bottom=21
-- title width / last selected line: 0
-- icon id / first selected line: 16560 / 16560
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Account Pointer
----- HyperTalk script -----
on mouseUp
  put "This points to the account which is currently active." && " Any transactions you make will be made toward this account." into String
  put the name of the target into ThisItem
  HelpMsg1 String, ThisItem
end mouseUp



-- part 224 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=497 top=81 right=103 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Calc Total
----- HyperTalk script -----
on mouseUp
  set hilite of the name of the target to true
  set numberformat to 0.00
  put the number of lines of card field "Summary" into TotalLines

  set cursor to 4
  if the optionKey is down then
    put "This shows your total net worth by adding the balances of" && "all your accounts together." into String
    put the name of the target into ThisItem
    HelpMsg1 String, ThisItem
    exit mouseUp
  end if

  put 0 into TotalBalance
  repeat with i = 1 to TotalLines
    add the value of last word of line i of card field "Summary" to TotalBalance
  end repeat

  put "$ " & TotalBalance into line 3 of card field "Total Of Balances"
  show card field "Total Of Balances"
  set hilite of the name of the target to false
end mouseUp



-- part 225 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=161 top=116 right=211 bottom=345
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 14
-- style flags: 256
-- line height: 18
-- part name: Total Of Balances
----- HyperTalk script -----
on mouseUp
  hide card field "Total Of Balances"
end mouseUp


-- part 226 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=270 top=249 right=316 bottom=306
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part 227 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=287 top=305 right=341 bottom=324
-- title width / last selected line: 0
-- icon id / first selected line: 20186 / 20186
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort
----- HyperTalk script -----
on mouseUp
  global LastField, LastLine
  if LastLine is 0 then put 1 into LastLine

  if the optionKey is down then
    put "You may desire to sort your transaction cards so that if" && "you print or just view them a card at a time, they will be in" && "some order.  Originally, they are in the order entered.  Sorting" && "the cards will put them in the order of the account, or by date" && "(to put them in order of the date of the transaction.)" into String
    put the name of the target into ThisItem
    HelpMsg1 String, ThisItem
    exit mouseUp
  end if

  answer "Sort your Daily Transactions according to:" with "Account" or "Date" or "CANCEL"
  push this card

  if it is "Account" then
    sort by field "Account Number" & field "Transaction"
  end if
  if it is "Date" then sort by background field "Card Date"

  if it is "Other" then
    put LastField into AskField
    answer "Sort all cards of this stack according to:" with AskField or "CANCEL"

    if it is AskField then
      sort by background field AskField
    end if

  end if
  pop card
end mouseUp



-- part 228 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=327 top=305 right=341 bottom=365
-- title width / last selected line: 0
-- icon id / first selected line: 1007 / 1007
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ImageWriter Advanced
----- HyperTalk script -----
on mouseUp

  if the optionKey is down then
    put "The printer button on this card allows you to print" && "a 'report' using HyperCard's print feature which lets you choose" && "what background fields you wish to print, and whether you want" && "to print in columns or rows.  Or you can print 'Actual Cards'," && "which will print a screen shot of the cards you select." && " This is also where you select your checks for printing." into String
    put the name of the target into ThisItem
    HelpMsg1 String, ThisItem
    exit mouseUp
  end if

  answer "How would you like to print?" with "Print Report" or "Actual Cards" or "Print Checks"
  if it is "CANCEL" then pass mouseUp

  if it is "Print Checks" then
    answer "SET UP or SELECT checks for printing?" with "Cancel" or "Set Up" or "Select"
    if it is "Cancel" then exit mouseUp
    if it is "SELECT" then
      push card
      push card
      push card
      put empty into card field "select checks"
      show card field "select checks"
      put empty into card field "Clear YTD2"
      send "getChecks" to background
      show card button ID 233
      show card button ID 234
    end if
    if it is "Set Up" then
      push card
      push card
      push card
      go to first card of stack "Print Checks"
    end if
  end if

  if it is "Print Report" then
    doMenu "Page Setup..."
    set Lockscreen to True
    doMenu "Print Report..."
  end if
  if it is "Actual Cards" then
    answer "Would you like to print ALL of your transaction cards?" with "Cancel" or "ALL"
    if it = "Cancel" then pass mouseUp
    if it = "All" then
      push card
      set lockscreen to true
      go to last card of this background
      put the number of this card into LastCard
      go to first card of this background
      put the number of this card into FirstCard
      put LastCard-FirstCard+1 into HowMany
      open printing with dialog
      Print HowMany Cards
      close printing
      pop card
    end if
  end if
  close printing
end mouseUp


-- part 229 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=50 top=45 right=310 bottom=470
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: Help Message Field
----- HyperTalk script -----
on mouseUp
  set cursor to 4
  put the name of the target into thisField
  do "put empty into" && thisField
  hide thisField
end mouseUp


-- part 230 (field)
-- low flags: 81
-- high flags: 4007
-- rect: left=23 top=109 right=315 bottom=495
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 14
-- part name: Select Checks
----- HyperTalk script -----
on mouseUp
  Global ThisItem, ThisLine
  set numberformat to 0
  put the ClickLoc into LastClickLoc
  set cursor to 4

  --  This script written and copyrighted by:  Christopher C. Hostetter
  --  Mac Help Company, 1800 East Market St., Long Beach, CA  90805
  --  (213) 428-7414
  --  This script may be freely modified and used in other stacks,
  --  but these five credit lines must accompany this script.

  put the name of the target into WhatField
  put the rect of whatField into FieldRect
  put item 1 of FieldRect into X   -- Left of Rect
  put item 2 of FieldRect into Y   -- Top of Rect
  put item 3 of FieldRect into XX  -- Right of Rect
  put item 4 of FieldRect into YY  -- Bottom of Rect

  put (YY - Y) / the textheight of whatField into TotalZones
  put (YY - Y) / TotalZones into ZoneDepth
  put item 2 of LastClickLoc - Y into MouseDepth
  put the trunc of ((MouseDepth / ZoneDepth) + 1) into whichZone

  put the scroll of whatField / the textHeight of whatField into HiddenLines
  put the trunc of (whichZone + HiddenLines) into ThisLine
  do "put line" && ThisLine && "of" && whatField && "into ThisItem"


  --MOVE HILIGHTER BUTTON TO PROPER ZONE
  put Y + ((whichZone-1)*ZoneDepth) into ButY
  put the trunc of ButY into ButY
  put the trunc of (ButY+ZoneDepth) into ButYY
  if the style of whatField is "Scrolling" then
    set the rect of card button "Clear YTD Hilighter" to X+1,ButY+1,XX-17,ButYY-1
  else
    set the rect of card button "Clear YTD Hilighter" to X+1,ButY+1,XX-1,ButYY-1
  end if
  show card button "Clear YTD Hilighter"
  set lockscreen to true


  if ThisItem is not empty then
    if char 1 of ThisItem is " " then
      put "•" into ClearChar
      put "* printed *" into ThisMark
      put ClearChar into char 1 of line ThisLine of card field "Select Checks"
    else
      put " " into ClearChar
      put empty into ThisMark
      put ClearChar into char 1 of line ThisLine of card field "Select Checks"
    end if

    push card
    get Line ThisLine of card field "Clear YTD2"
    go to it
    put ThisMark into background field "printed"
    pop card

  end if

  Hide card button "Clear YTD Hilighter"
end mouseUp


-- part 231 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=41 top=189 right=264 bottom=460
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 204
-- text size: 48
-- style flags: 6912
-- line height: 64
-- part name: Wait Pop


-- part 232 (button)
-- low flags: 80
-- high flags: 4000
-- rect: left=210 top=155 right=167 bottom=476
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Clear YTD Hilighter


-- part 235 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=260 top=320 right=341 bottom=284
-- title width / last selected line: 0
-- icon id / first selected line: 1015 / 1015
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Not Set
----- HyperTalk script -----
on mouseUp

  put the name of the target into ThisName
  put ThisName into ButtonName
  delete word 1 to 2 of ThisName
  delete first char of ThisName
  delete last char of ThisName

  if the optionKey is down or ThisName is "Not Set" then
    answer "Do you need directions first or attach desk accessory?" with "Accessory" or "Directions"
    if it is "Accessory" then
      ask "Enter the exact name of the new desk accessory?" with ThisName
      if it is empty then put "Not Set" into it
      set the name of ButtonName to it
      put it into ThisName
    end if
    if it is "Directions" then
      put "You may use this button to activate a desk accessory such" && "as a calculator for instance.  Before this message appears," && "choose 'Accessory' to attach a desk accessory and then type in the" && "exact name of the desk accessory (as it appears in the apple" && "menu).  The desk accessory will be called up when you click the" && "button." into String
      put the name of the target into ThisItem
      HelpMsg1 String, ThisItem
      exit mouseUp
    end if
  end if

  doMenu ThisName
end mouseUp



-- part 236 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=233 top=320 right=341 bottom=257
-- title width / last selected line: 0
-- icon id / first selected line: 1015 / 1015
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Not Set
----- HyperTalk script -----
on mouseUp

  put the name of the target into ThisName
  put ThisName into ButtonName
  delete word 1 to 2 of ThisName
  delete first char of ThisName
  delete last char of ThisName

  if the optionKey is down or ThisName is "Not Set" then
    answer "Do you need directions first or attach desk accessory?" with "Accessory" or "Directions"
    if it is "Accessory" then
      ask "Enter the exact name of the new desk accessory?" with ThisName
      if it is empty then put "Not Set" into it
      set the name of ButtonName to it
      put it into ThisName
    end if
    if it is "Directions" then
      put "You may use this button to activate a desk accessory such" && "as a calculator for instance.  Before this message appears," && "choose 'Accessory' to attach a desk accessory and then type in the" && "exact name of the desk accessory (as it appears in the apple" && "menu).  The desk accessory will be called up when you click the" && "button." into String
      put the name of the target into ThisItem
      HelpMsg1 String, ThisItem
      exit mouseUp
    end if
  end if

  doMenu ThisName
end mouseUp



-- part 233 (button)
-- low flags: 80
-- high flags: A003
-- rect: left=17 top=318 right=340 bottom=241
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: PRINT MARKED CHECKS
----- HyperTalk script -----
on mouseUp
  push card
  set lockscreen to true
  set cursor to 4
  hide card field "Select Checks"
  hide card button ID 233
  Hide card button ID 234
  if card field "Select Checks" contains "•" then
    set lockscreen to false
    go to first card of stack "Print Checks"
    send "DoChecks" to background
  end if
end mouseUp



-- part 234 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=244 top=318 right=340 bottom=463
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Mark/UnMark ALL
----- HyperTalk script -----
on mouseUp
  set lockscreen to true
  set cursor to 4
  get char 1 of line 1 of card field "Select Checks"
  put the number of lines of card field "Select Checks" into NumLines

  repeat with i = 1 to NumLines
    put line i of card field "Select Checks" into ThisItem
    if char 1 of ThisItem is " " then
      put "•" into ClearChar
      put "* printed *" into ThisMark
      put ClearChar into char 1 of line i of card field "Select Checks"
    else
      put " " into ClearChar
      put empty into ThisMark
      put ClearChar into char 1 of line i of card field "Select Checks"
    end if

    push card
    get Line i of card field "Clear YTD2"
    go to it
    put ThisMark into background field "printed"
    pop card
  end repeat

end mouseUp



-- part contents for card part 6
----- text -----
Account Title            Account        Last Ck.  Balance

-- part contents for card part 5
----- text -----
1

-- part contents for card part 61
----- text -----
22

-- part contents for card part 29
----- text -----
.Income - Clients
.Income - Investments
Baby Items
Bank Charges
Business
Computer Supplies
Crafts
Entertainment
Gifts For Friends
Groceries
Home - Furnishings
Home - Mortgage
Home - Repair Items
Home - Telephone
Home - Utilities
Home - Yard
Insurance
Miscellaneous
Office Supplies - Home
Student Loan - College
Tithe/Offering
Travel Expenses

-- part contents for card part 74
----- text -----
2/27/88

-- part contents for card part 51
----- text -----
Miscellaneous

-- part contents for background part 28
----- text -----
Sunday, December 12, 1999
3027801600

-- part contents for background part 29
----- text -----
12/12/99

-- part contents for background part 27
----- text -----
V O I D

-- part contents for card part 140
----- text -----
 
Bank Balance......


 Statement
 Balance..........


 Outstanding (+)..
 Outstanding (-)..
 
 Cleared (+)......
 Cleared (-)......


 Out of 
 Balance by.......


-- part contents for card part 165
----- text -----
Select Transaction

-- part contents for card part 141
----- text -----
45.00

-- part contents for background part 57
----- text -----
 

-- part contents for background part 40
----- text -----
0.00

-- part contents for background part 64
----- text -----
40000.00

-- part contents for background part 23
----- text -----
40000.00

-- part contents for background part 21
----- text -----
war

-- part contents for card part 206
----- text -----
243-2-28831......
0
Account Fee
Fee-

-- part contents for card part 142
----- text -----
723.00

-- part contents for card part 143
----- text -----
0

-- part contents for card part 144
----- text -----
31.19

-- part contents for card part 145
----- text -----
458.10

-- part contents for card part 219
----- text -----
18.97

-- part contents for card part 220
----- text -----
1194.91

-- part contents for card part 225
----- text -----
Your Total Assets Equal

$ 434.21


-- part contents for background part 85
----- text -----
Explanation Of bkgnd button "SuperFind: Chris Hostetter"

This advanced search button allows you to enter information you wish to find.  It will take you to the card which has the words (or the parts of the words) you enter (note: the words don't have to be in the same order).  You can then hit the carriage return to repeat the search over and over. If you hold the option key down while clicking OK, you can be more specific about finding information in 1. the last background field you clicked in (not always supported), and 2. whether you wish to find whole words, partial words, or the characters that you entered.

-- part contents for card part 231
----- text -----
Looking...

-- part contents for card part 230
----- text -----
•   Check-0005282    -18.97     Southern Ca Edison                                        
    Check-0005283    -135.00    Mercury Insurance Group                                         
•   Check-0005284    -710.00    World Savings                                         
•   Check-0005285    -34.23     Giant                                        
•   Check-0005286    -228.78    Fedco                                         
•   Check-0005287    -46.90     Giant                                        

-- part contents for card part 37
----- text -----
243-2-28831......

-- part contents for card part 4
----- text -----
First Bank - Checking        243-2-28831...... 0005287    $ 31.19